home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D04.D64 / screen store (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.2 KB  |  39 lines
  1. 100 IFPEEK(49197)<>53THENLOAD"BIN.SCREENSTORE",8,1
  2. 1000 SYS49158:POKE53280,0:POKE53281,6:X=5
  3. 1020 PRINT"[147]   SCREEN SAVER   (C) M.MEDHURST 1990   [146]":PRINT"[154]SCREEN";PEEK(2)+1
  4. 1040 PRINT"":PRINT"      THIS UTILITY ALLOWS YOU TO STORE    ANYTHING";
  5. 1050 PRINT" ON THE TEXT SCREEN INCLUDING COLOUR. ";
  6. 1060 PRINT"UP TO 8 SCREENS CAN BE STORED INTHE HIDDEN RAM UNDER THE ";
  7. 1070 PRINT"BASIC & KERNAL ROMS..":GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1
  8. 1100 PRINT" SYS49158[146][158] SETS THE SCREEN COUNTER TO 0.":PRINT
  9. 1110 PRINT" SYS49152[146][158] STORES THE CURRENT SCREEN AND COLOUR AND INCREASES ";
  10. 1120 PRINT"THE SCREEN COUNTER BY ONE."
  11. 1130 PRINT" SYS49155[146][158] RECALLS THE LAST SCREEN AND   DECREASES THE SCREEN";
  12. 1140 PRINT" COUNTER BY ONE.":GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1
  13. 1170 PRINT"[155] SCREENS ARE STORED AND RECALLED ON A   LAST IN FIRST OUT BASIS."
  14. 1180 PRINT" IF THE SCREEN COUNTER IS ZERO AND A    SYS49155[146][155] CALL IS MADE ";
  15. 1190 PRINT"A NO SCREEN ERROR[146][155] WILL BE DISPLAYED AND THE PROGRAM WILL  STOP."
  16. 1200 PRINT" IF THE SCREEN COUNTER IS EIGHT AND A    SYS49152[146][155] CALL IS MADE "
  17. 1210 PRINT"A SCREEN FULL ERROR[146][155] WILL BE DISPLAYED   AND THE ";
  18. 1220 PRINT"PROGRAM WILL STOP.":GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1
  19. 1250 PRINT"[159]  THE NUMBER OF SCREENS STORED CAN BE   CHECKED BY PEEK(2)[159] "
  20. 1260 PRINT"ANY SCREEN ONCE STORED CAN BE RECALLED   AT RANDOM BY FIRST POKEING";
  21. 1270 PRINT" LOCATION 2  WITH THE SCREEN NUMBER.";:PRINT" (1-8)"
  22. 1290 PRINT"EG:- POKE2,5[159]  FOLLOWED BY SYS49155[146][159] WILL  RECALL SCREEN 5."
  23. 1300 GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINT"[221]OVERLAPPING [221]"
  24. 1340 PRINT"[221]MENU'S CAN  [221]":PRINT"[221]BE PRINTED  [221]":PRINT"[221]AND RESTORED[221]"
  25. 1370 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB1640:PRINT"SCREEN";PEEK(2)+1:PRINT"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  26. 1410 PRINT"[221]OVERLAPPING [221]":PRINT"[221]MENU'S CAN  [221]":PRINT"[221]BE PRINTED  [221]"
  27. 1440 PRINT"[221]AND RESTORED[221]":PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB1640
  28. 1470 PRINT"SCREEN";PEEK(2)+1:PRINT"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  29. 1490 PRINT"[221]OVERLAPPING [221]":PRINT"[221]MENU'S CAN  [221]"
  30. 1510 PRINT"[221]BE PRINTED  [221]":PRINT"[221]AND RESTORED[221]"
  31. 1530 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1
  32. 1560 PRINT"AND NOW TO RESTORE THE SCREENS":GOSUB1640:PRINT"[147]":FORDE=0TO1000:NEXTDE:PRINT"[147]"
  33. 1590 FORW=1TO8:SYS49155:FORDE=0TO1000:NEXTDE:NEXTW:PRINT"[147]NOW RANDOM SCREENS":FORDE=0TO1000:NEXTDE
  34. 1610 FORJ=0TO40:W=INT(8*RND(1)+1):POKE2,W:SYS49155:FORDE=0TO150:NEXTDE:NEXTJ:FORJ=0TO40
  35. 1620 W=INT(8*RND(1)+1):POKE2,W:SYS49155:NEXTJ:PRINT"[147]END OF DEMO":END
  36. 1640 POKE198,0:PRINT"[154]":PRINTTAB(3)"PRESS RETURN[146]"
  37. 1650 GETK$:IFK$<>CHR$(13)THEN1650
  38. 1660 SYS49152:RETURN
  39.